1 January 2020

Overview

This is an R Markdown presentation about global suicide rates in 1985 to 2016. The dataset is from kaggle.

References

Data Preprocessing

library(tidyverse)
library(plotly)

# load dataset
plotdata <- read.csv(file = "master.csv")

# tidying up dataset
plotdata <- plotdata %>% 
        rename(country.name = ï..country) %>%
        as.data.frame()

plotdata_summary <- plotdata %>%
        group_by(year) %>%
        summarize(population = sum(population),
                  suicides = sum(suicides_no),
                  suicides_per_100k = (suicides / population) * 100000)

Plotly

# Create plot
p <- plot_ly(data = plotdata_summary, 
             x = ~year, y = ~suicides_per_100k, 
             mode = "lines+markers") %>%
        layout(title = "Global Suicides Trends per 100k")

Plotly